home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / game / misc / DC_Update1_1.lha / DC-Update / Update-DC < prev   
Encoding:
Text File  |  1995-04-03  |  1.0 KB  |  40 lines
  1. (complete 0)
  2.  
  3. (message "I will now update the following files:\nDiamond Caves (main program)\nDiamondCaves.doc & DiamondCaves.guide\nGame.lvl/23")
  4.  
  5. (if (exists "DC:" (NOREQ))
  6.     (
  7.         (set vernum (getversion "DC:DiamondCaves"))
  8.  
  9.         (set ver (/ vernum 65536))
  10.         (set rev (- vernum (* ver 65536)))
  11.  
  12.         (set version (+ (* 100 ver) rev))
  13.  
  14.         (if (> version 110)
  15.             (
  16.                 (message "You have already installed a version >1.1!\n")
  17.                 (exit (quiet))
  18.             )
  19.             (set DrawerName "DC:")
  20.         )
  21.  
  22.         (complete 20)
  23.         (copyfiles
  24.             (prompt "Updating necessary files in \"" DrawerName "\".")
  25.             (help @copyfiles-help)
  26.             (source "DiamondCaves")
  27.             (dest DrawerName)
  28.             (all)
  29.             (infos)
  30.         )
  31.  
  32.         (message "\nDimaond Caves update complete.\n\nAnd now enjoy Diamond Caves!")
  33.  
  34.     )
  35.  
  36.     (message "Directory DC: not found!\nThis is just a small update, so please install Diamond Caves V1.0 before.")
  37. )
  38.  
  39. (exit (quiet))
  40.